home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 94 / 094.d81 / bowl connect (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  725b  |  21 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 100 sys4096,8,28,2,8,160,6:sys4096,9,29,1,7,160,14:sys4096,10,30,0,6,160,3
  3. 110 poke53281,.:poke53280,.:printchr$(14)chr$(8)
  4. 111 poke214,1:poke211,12:sys58732:print"[159]1. [211]ingle [194]owler"
  5. 112 printtab(12)"2. [194]owling [212]eam":printtab(12)"3. [204][207][193][196][211][212][193][210]"
  6. 120 poke214,9:print:print"  [208]lease select program to [204][207][193][196]  "
  7. 130 getk$:ifk$=""then130
  8. 140 k=val(k$):ifk<1ork>3then130
  9. 150 a$="bowl":ifk=2thena$="team"
  10. 160 ifk=3thena$="hello connect"
  11. 170 close15:open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  12. 175 if er<>63 then print"[147]":end
  13. 180 sys4096,0,39,0,9,32,0
  14. 190 poke214,9:print:print"             [204][207][193][196][201][206][199]...          "
  15. 200 print"[144]load"chr$(34)a$chr$(34)","dv
  16. 210 print"run"
  17. 220 poke43,1:poke44,48:poke12288,0:ifk=3thenpoke44,8:poke2048,0
  18. 230 poke631,13:poke632,13:poke633,13:poke198,3
  19. 240 end
  20. 10000 open15,8,15,"s0:bowl connect":close15:save"0:bowl connect",8:end
  21.